home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0232 / setup.sam (.txt) < prev    next >
Encoding:
Ami Pro/Word Pro document  |  1997-03-27  |  6.4 KB  |  241 lines
  1. [ver]
  2. [sty]
  3. [files]
  4. [charset]
  5.     ANSI (Windows, IBM CP 1252)
  6. [revisions]
  7. [prn]
  8.     PostScript Printer
  9. [port]
  10.     LPT1:
  11. [lang]
  12. [fldnames]
  13.     Field1
  14.     Field2
  15.     Field3
  16.     Field4
  17.     Field5
  18.     Field6
  19.     Field7
  20.     Field8
  21. [desc]
  22.     816257832
  23.     797006269
  24. [fopts]
  25. [lnopts]
  26.     Body Text
  27. [docopts]
  28. [GramStyle]
  29. [tag]
  30.     Body Text
  31.     [fnt]
  32.         Arial MT
  33.         240
  34.         16384
  35.     [algn]
  36.         216
  37.     [spc]
  38.         273
  39.         100
  40.     [brk]
  41.     [line]
  42.     [spec]
  43.     [nfmt]
  44.         272
  45.         </c>
  46.     Body Text
  47. [tag]
  48.     Body Single
  49.     [fnt]
  50.         TimesNewRomanPS
  51.         200
  52.         49152
  53.     [algn]
  54.     [spc]
  55.         273
  56.         100
  57.     [brk]
  58.     [line]
  59.     [spec]
  60.     [nfmt]
  61.         272
  62.         </c>
  63.     Body Single
  64. [tag]
  65.     Function
  66.     [fnt]
  67.         Arial MT
  68.         200
  69.         16385
  70.     [algn]
  71.     [spc]
  72.         244
  73.         100
  74.     [brk]
  75.     [line]
  76.     [spec]
  77.     [nfmt]
  78.         272
  79.         </c>
  80.     Body Text
  81. [lay]
  82.     Standard
  83.     [rght]
  84.         16833
  85.         11908
  86.         1440
  87.         1440
  88.         1440
  89.         1440
  90.         1440
  91.         10465
  92.         720
  93.         1440
  94.         2160
  95.         2880
  96.         3600
  97.         4320
  98.         5040
  99.         5760
  100.         6480
  101.         7200
  102.         7920
  103.         8640
  104.     [hrght]
  105.     [lyfrm]
  106.         11200
  107.         11908
  108.         1440
  109.         1 0 0 0 0 0 0
  110.     [frmlay]
  111.         1440
  112.         11908
  113.         1440
  114.         792
  115.         1440
  116.         1440
  117.         10465
  118.         9360
  119.     [txt]
  120.     [frght]
  121.     [lyfrm]
  122.         13248
  123.         15393
  124.         11908
  125.         16833
  126.         1 0 0 0 0 0 0
  127.     [frmlay]
  128.         16833
  129.         11908
  130.         1440
  131.         792
  132.         15465
  133.         1440
  134.         1440
  135.         10465
  136.         4680
  137.         9360
  138.     [txt]
  139. [elay]
  140.     49 0 40 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  141.     96 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  142. [edoc]
  143. <:#278,9025>FUNCTION SetupAmiWeb()
  144. <:#278,9025>
  145. <:#278,9025>Win=GetWindowsDirectory$()
  146. <:#278,9025>Ami=GetAmiDirectory$()
  147. <:#278,9025>Macros=GetMacPath$()
  148. <:#278,9025>Style=GetStylePath$()
  149. <:#278,9025>Docs=GetDocPath$()
  150. Icons="{Ami}icons\"
  151. <:#278,9025>
  152. <:#278,9025>
  153. <:#556,9025>Message("Please send me a REAL postcard!!  See README.TXT","AmiWeb Setup")
  154. <:#278,9025>File=FindFirst$("{Win}system\ole2nls.dll",0)
  155. <:#278,9025>IF File="" 
  156. <:#278,9025>    Message("You must install OLE2 first","AmiWeb Setup")
  157. <:#278,9025>    EXIT FUNCTION
  158. <:#278,9025>ENDIF
  159. <:#278,9025>File=FindFirst$("{Ami}wn_sm2ht.exe",0)
  160. <:#278,9025>IF File<<<;>""
  161. <:#278,9025>    DOSDelFile("{Ami}wn_sm2ht.exe")
  162. <:#278,9025>ENDIF
  163. <:#278,9025>FillEdit(8000,Macros)
  164. <:#278,9025>FillEdit(8001,Icons)
  165. <:#278,9025>FillEdit(8002,Style)
  166. <:#278,9025>FillEdit(8003,Docs)
  167. <:#278,9025>
  168. <:#278,9025>Box=DialogBox(".","Setup")
  169. <:#278,9025>IF Box<<<;>1 
  170. <:#278,9025>    EXIT FUNCTION
  171. <:#278,9025>ENDIF
  172. <:#278,9025>
  173. <:#278,9025>Macros=GetDialogField$(8000)
  174. <:#278,9025>Icons=GetDialogField$(8001)
  175. <:#278,9025>Style=GetDialogField$(8002)
  176. <:#278,9025>Docs=GetDialogField$(8003)
  177. <:#278,9025>
  178. <:#278,9025>MacroName=GetRunningMacroFile$()
  179. <:#278,9025>Pos=LEN(MacroName)
  180. <:#278,9025>WHILE "\" != MID$(MacroName, Pos, 1)
  181. <:#278,9025>    Pos = Pos - 1
  182. <:#278,9025>WEND
  183. <:#278,9025>PathName = Left$(MacroName, Pos)
  184. <:#278,9025>Entries=GetProfileString$("info","windows","{PathName}Setup.ini")
  185. <:#278,9025>CALL CopyFiles(Win, Entries, PathName)
  186. <:#278,9025>Entries=GetProfileString$("info","macros","{PathName}Setup.ini")
  187. <:#278,9025>CALL CopyFiles(Macros, Entries, PathName)
  188. <:#278,9025>Entries=GetProfileString$("info","styles","{PathName}Setup.ini")
  189. <:#278,9025>CALL CopyFiles(Style, Entries, PathName)
  190. <:#278,9025>Entries=GetProfileString$("info","icons","{PathName}Setup.ini")
  191. <:#278,9025>CALL CopyFiles(Icons, Entries, PathName)
  192. <:#278,9025>Entries=GetProfileString$("info","docs","{PathName}Setup.ini")
  193. <:#278,9025>CALL CopyFiles(Docs, Entries, PathName)
  194. <:#278,9025>Message("Installation Complete")
  195. <:#278,9025>
  196. <:#278,9025>END FUNCTION
  197. <:#278,9025>
  198. <:#278,9025>DIALOG    Setup
  199. <:#278,9025>-2134376448    11    36    62    246    146    ""    ""    "AmiWeb Setup"
  200. <:#278,9025>18    28    40    10    1000    1342177280    "static"    "Macros file"    0 
  201. <:#278,9025>18    48    40    10    1001    1342177280    "static"    "SmartIcons"    0 
  202. <:#278,9025>18    68    40    10    1002    1342177280    "static"    "Style Sheet"    0 
  203. <:#278,9025>18    88    40    10    1003    1342177280    "static"    "Documents"    0 
  204. <:#556,9025>26    6    130    10    1004    1342177280    "static"    "Destination directories for:"    0 
  205. <:#278,9025>62    26    150    12    8000    1350631552    "edit"    ""    0 
  206. <:#278,9025>62    46    150    12    8001    1350631552    "edit"    ""    0 
  207. <:#278,9025>62    66    150    12    8002    1350631552    "edit"    ""    0 
  208. <:#278,9025>62    86    150    12    8003    1350631552    "edit"    ""    0 
  209. <:#278,9025>60    116    40    14    1    1342373889    "button"    "OK"    0 
  210. <:#278,9025>130    116    40    14    2    1342373888    "button"    "Quit Setup"    0 
  211. <:#278,9025>END DIALOG
  212. <:#278,9025>
  213. <:#278,9025>
  214. <:#278,9025>FUNCTION CopyFiles(Directory, Entries, PathName)
  215. <:#278,9025>
  216. <:#278,9025>IF Right$(Directory,1)<<<;>"\"
  217. <:#278,9025>    Directory="{Directory}\"
  218. <:#278,9025>ENDIF
  219. <:#278,9025>Pos=1
  220. <:#278,9025>WHILE Pos<<LEN(Entries)
  221. <:#278,9025>    Pos2=Pos
  222. <:#278,9025>    WHILE (" "<<<;>MID$(Entries, Pos, 1)) AND(Pos<<LEN(Entries))
  223. <:#278,9025>        Pos=Pos+1
  224. <:#278,9025>    WEND
  225. <:#278,9025>    IF(Pos<<LEN(Entries)) 
  226. <:#278,9025>        Pos=Pos+(-1)
  227. <:#278,9025>    ENDIF
  228. <:#278,9025>    Files=MID$(Entries, Pos2, (Pos-Pos2)+1)
  229. <:#278,9025>    File=FindFirst$("{PathName}{Files}",0)
  230. <:#278,9025>    WHILE File<<<;>""
  231. <:#278,9025>        IF DOSCopyFile("{PathName}{File}","{Directory}{File}") <<<;> 1
  232. <:#278,9025>            Message("Unable to copy {File} to {Directory}")
  233. <:#278,9025>        ENDIF
  234. <:#278,9025>        File=FindNext$()
  235. <:#278,9025>    WEND
  236. <:#278,9025>    Pos=Pos+2
  237. <:#278,9025>WEND
  238. <:#278,9025>END FUNCTION
  239. [Embedded]
  240. 00006573
  241.